Imports System.Data.SqlClient

Public Class frmBinnenkomst

    Dim werknummer As String = My.Forms.FrmInlogscherm.CmbWerknummer.SelectedValue.ToString

    Private Sub frmPlanning_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Docregdata2DataSet.Datums' table. You can move, or remove it, as needed.
        Me.DatumsTableAdapter.Fill(Me.Docregdata2DataSet.Datums)
        'TODO: This line of code loads data into the 'Docregdata2DataSet.Tekeningen' table. You can move, or remove it, as needed.
        Dim werknummer As String = My.Forms.FrmInlogscherm.CmbWerknummer.SelectedValue.ToString
        Me.TekeningenTableAdapter.FillBy(Me.Docregdata2DataSet.Tekeningen, werknummer)
        'TODO: This line of code loads data into the 'Docregdata2DataSet.Bedrijven' table. You can move, or remove it, as needed.
        Me.BedrijvenTableAdapter.FillByBedrijven_werken(Me.Docregdata2DataSet.Bedrijven, werknummer)

        Inladen_Tekeningen_retourgevraagd()

    End Sub

    Private Sub BtnHoofdmenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHoofdmenu.Click
        Me.Visible = False
        My.Forms.FrmHoofdmenu.Visible = True

    End Sub

    Public Sub Inladen_Tekeningen_retourgevraagd()

        'Creeren connectie
        Dim con As SqlConnection
        con = New SqlConnection(My.Settings.Docregdata2ConnectionString)

        Dim standdatum As Date = Me.Dtpstanddatum.Value

        'sql-command instellen
        Dim cmd As SqlCommand
        cmd = New SqlCommand("SelectieTekeningBinnenkomst2", con)
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Parameters.AddWithValue("@Binnenkomst", standdatum)
        cmd.Parameters.AddWithValue("@Werknummer", werknummer)

        Dim da As New SqlDataAdapter()
        da.SelectCommand = cmd

        Dim ds As New DataSet
        ds.Clear()
        da.Fill(ds, "Tekeningenbinnenkomst")

        Me.DataGridView1.AutoGenerateColumns = True
        Me.DataGridView1.DataSource = ds.Tables("Tekeningenbinnenkomst")


    End Sub

    Public Sub load_new_rows_and_update_comboboxes()
        BedrijvenTableAdapter.Update(DocRegData2DataSet.Bedrijven)
        BedrijvenTableAdapter.FillByBedrijven_werken(Me.DocRegData2DataSet.Bedrijven, werknummer)

        BedrijvenBindingSource.DataSource = DocRegData2DataSet
        BedrijvenBindingSource.DataMember = "Bedrijven"

        FKTekeningenBedrijvenBindingSource.DataSource = BedrijvenBindingSource
        FKTekeningenBedrijvenBindingSource.DataMember = "FK_Tekeningen_Bedrijven"

        BedrijfsnaamComboBox.DataSource = BedrijvenBindingSource
        BedrijfsnaamComboBox.DisplayMember = "Bedrijfsnaam"
        BedrijfsnaamComboBox.ValueMember = "BedrijvenID"

        NaamComboBox.DataSource = FKTekeningenBedrijvenBindingSource
        NaamComboBox.DisplayMember = "Naam"
        NaamComboBox.ValueMember = "TekeningID"

    End Sub

    Private Sub BtnfrmPlanning_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnfrmPlanning.Click

        Me.Visible = False
        My.Forms.FrmPlanning.Visible = True

    End Sub

    Private Sub Dtpstanddatum_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Dtpstanddatum.ValueChanged

        Inladen_Tekeningen_retourgevraagd()

    End Sub
End Class